home *** CD-ROM | disk | FTP | other *** search
/ MACD 5 / MACD 5.bin / workbench / dir / patch / rexx / togglelvfont.rush < prev    next >
Text File  |  1993-12-21  |  382b  |  20 lines
  1. /*
  2. ** $VER: ToggleLVFont.rush 37.1 (28.10.93)
  3. **
  4. ** Toggle the listview font between two different font.
  5. **
  6. ** Written by Douglas Keller
  7. */
  8.  
  9. if( address() == "REXX" ) then address "RUSH.1"
  10.  
  11. options results
  12.  
  13. 'getlistviewfont'
  14. parse var result fontname fontsize
  15.  
  16. if fontname ~= "yyz.font" then
  17.     'setlistviewfont font=yyz.font size=11'
  18. else
  19.     'setlistviewfont font=thinpaz.font size=8'
  20.